<!DOCTYPE html>
<html lang="en">
<head>
  <meta charset="UTF-8" />
  <meta http-equiv="X-UA-Compatible" content="IE=edge" />
  <meta name="viewport" content="width=device-width, initial-scale=1.0" />
  <title>SheCodes</title>
</head>
<body>
  
</body>
</html>

My meme

My meme is made by two meme templates I found online, and I used texts and codes integrated them together.

library(magick)
Drake_says_no <- image_read("https://pyxis.nymag.com/v1/imgs/62c/fa8/6e52acce958795508a7ecbf6a3656c0190-11-drake-hotline-bling.rhorizontal.w700.jpg")%>%
  image_resize("600x600!")
Drake_says_yes<- image_read("https://i.imgflip.com/4wpsm3.jpg")%>%
  image_resize("600x600!")
Play_games_in_USSR <- image_blank(width=600, height=600, color="#000000")%>%
  image_annotate(text = "WHEN YOU PLAY MINECRAFT\n IN USSR", 
               color = "#FFFFFF", 
               size =40,
               gravity = "center")
Play_games_in_USSR2 <- image_blank(width=600, height=600, color="#FFFFFF")%>%
  image_annotate(text = "WHEN YOU PLAY OURCRAFT\n IN USSR", 
               color = "#000000", 
               size =40,
               gravity = "center")
  top_row <- image_append(c(Play_games_in_USSR, Drake_says_no))
  bottom_row <- image_append(c(Play_games_in_USSR2, Drake_says_yes))
  game_meme <- c(top_row, bottom_row) %>%
    image_append(stack = TRUE) %>%
    image_scale(600)
  image_write(game_meme, "my_meme.png")

My GIF

My GIF was made based on my memes, I animated the four pictures one by one.

library(magick)
image_animate(frame, fps = 4 )
image_morph(frame)
frame <- c(Play_games_in_USSR, Drake_says_no, Play_games_in_USSR2, Drake_says_yes)
game_gif_1 <- image_animate(frame, fps = 4 )
game_gif_2 <- image_morph(frame) %>%
  image_animate(fps =100) 
game_animation <- c(game_gif_1, game_gif_2)
image_write(game_animation, "my_animation.gif")